﻿Imports LogicaAT
Imports ServiciosAT

Namespace SIREOS
    Public Class CtSeguridad

        Function cambiarContrasena(oUsuarioBE As SireosWSSeguridad.Usuario) As SireosWSSeguridad.MensajeInformativo
            Dim oSeguridadSW As New LogicaAT.SIREOS.SeguridadWSR
            Return oSeguridadSW.cambiarContrasena(oUsuarioBE)
        End Function

        Function listarAccesoUsuario(oUsuarioAccesoBE As SireosWSSeguridad.UsuarioAcceso) As DataTable
            Dim oSeguridadSW As New LogicaAT.SIREOS.SeguridadWSR
            Return oSeguridadSW.listarPermisosUsuario(oUsuarioAccesoBE)
        End Function

        Function listarModulosUsuario(oUsuarioAccesoBE As SireosWSSeguridad.UsuarioAcceso) As DataTable
            Dim oSeguridadSW As New LogicaAT.SIREOS.SeguridadWSR
            Return oSeguridadSW.listarModulosUsuario(oUsuarioAccesoBE)
        End Function

        Function obtenerNombreUsuario(oUsuarioBE As SireosWSSeguridad.Usuario) As String
            Dim oUsuarioLO As New LogicaAT.SIREOS.SeguridadWSR
            Return oUsuarioLO.obtenerNombreUsuario(oUsuarioBE)
        End Function

        Function validarNombreUsuario(oUsuario As SireosWSSeguridad.Usuario) As Integer
            Dim oUsuarioLO As New LogicaAT.SIREOS.SeguridadWSR
            Return oUsuarioLO.validarNombreUsuario(oUsuario)
        End Function

        Function validarUsuario(oUsuario As SireosWSSeguridad.Usuario) As Integer
            Dim oUsuarioLO As New LogicaAT.SIREOS.SeguridadWSR
            Return oUsuarioLO.validarUsuario(oUsuario)
        End Function

    End Class
End Namespace